-- stack: in.3 -- format: 8 (HyperCard 1) -- flags: 0x4000 (can't delete) -- protect password hash: 2389196536 -- maximum user level: 2 (typing) -- window: Rect(x1=0, y1=0, x2=0, y2=0) -- screen: Rect(x1=0, y1=0, x2=0, y2=0) -- card dimensions: w=0 h=0 -- scroll: x=0 y=0 -- background count: 3 -- first background id: 2663 -- card count: 20 -- first card id: 5292 -- list block id: 10451 -- print block id: 6669 -- font table block id: 0 -- style table block id: 0 -- free block count: 0 -- free size: 0 bytes -- total size: 88032 bytes -- stack block size: 5632 bytes -- created by hypercard version: 0x00000000 -- compacted by hypercard version: 0x00000000 -- modified by hypercard version: 0x00000000 -- opened by hypercard version: 0x00000000 -- patterns[0]: 0x0000000000000000 -- patterns[1]: 0x8000000008000000 -- patterns[2]: 0x8800220088002200 -- patterns[3]: 0x8888222288882222 -- patterns[4]: 0x88AA22AA88AA22AA -- patterns[5]: 0xCCAA33AACCAA33AA -- patterns[6]: 0xEEAABBAAEEAABBAA -- patterns[7]: 0xEEBBBBEEEEBBBBEE -- patterns[8]: 0xFFBBFFEEFFBBFFEE -- patterns[9]: 0xFFBBFFFFFFBBFFFF -- patterns[10]: 0x8010022001084004 -- patterns[11]: 0xFFFFFFFFFFFFFFFF -- patterns[12]: 0x8822882288228822 -- patterns[13]: 0x1122448811224488 -- patterns[14]: 0xC4800C6843023026 -- patterns[15]: 0xB130031BD8C00C8D -- patterns[16]: 0xAA00AA00AA00AA00 -- patterns[17]: 0x8822552288225522 -- patterns[18]: 0x8855225588552255 -- patterns[19]: 0x77DD77DD77DD77DD -- patterns[20]: 0x8000000000000000 -- patterns[21]: 0xAA55AA55AA55AA55 -- patterns[22]: 0x038448300C020101 -- patterns[23]: 0x8244394482010101 -- patterns[24]: 0x8814224188412214 -- patterns[25]: 0x8080413E080814E3 -- patterns[26]: 0x22048C7422179810 -- patterns[27]: 0xBE808808EB088880 -- patterns[28]: 0x25C8328964244C92 -- patterns[29]: 0xA29C41BE2AC914EB -- patterns[30]: 0x40A00000040A0000 -- patterns[31]: 0x8040200002040800 -- patterns[32]: 0xAA00800088008000 -- patterns[33]: 0xFF80808080808080 -- patterns[34]: 0x081C22C180010204 -- patterns[35]: 0xFF808080FF080808 -- patterns[36]: 0xF87422478F172271 -- patterns[37]: 0xBF00BFBFB0B0B0B0 -- patterns[38]: 0xFF7FBE5DA2418000 -- patterns[39]: 0xFAF5FAF5A050A050 -- checksum: 0x0 ----- HyperTalk script ----- on openStack Global OldUserLevel put the userlevel into OldUserLevel Set userLevel to 2 hide MenuBar go to card "StartCard" end openStack on CloseStack Global OldUserLevel set the userlevel to OldUserLevel get the freeSize of this stack if it > 75000 then put the value of it into NumK put Round(NumK/1000) into NumK answer "Because a significant number of cards have been " & "modified or deleted, you can reclaim approximately " & NumK & "k of available disk space by compacting this stack." with "Not Now" or "Compact" if it is "Compact" then doMenu "Compact Stack" end if end CloseStack on mouseWithin Global LastField, TrapFieldName -- Field Select, Copyright by Mac Help Co., January 1988 -- by Chris Hostetter, Mac Help Co., 1800 East Market Street -- Long Beach, CA 90805, (213) 428-7414 -- This script is copyrighted and may not be -- used without the written permission of the author (above). if TrapFieldName is "Sort" then if the visible of the message box is false then put empty into TrapFieldName exit MouseWithin end if set cursor to 2 if the commandkey is down then put the name of the target into LastField put empty into TrapFieldName hide message box answer "Sort in Ascending or Descending order?" with Ascending or Descending if it is "Ascending" then do "sort ascending by" && LastField if it is "Descending" then do "sort descending by" && LastField end if end if if TrapFieldName is "Delete" then if the visible of the message box is false then put empty into TrapFieldName exit MouseWithin end if set cursor to 2 if the commandkey is down then put the name of the target into LastField put empty into TrapFieldName hide message box ask "Ready to delete duplicates in field " with LastField put the number of cards into TotalCards put 0 into DeleteCount set cursor to 4 repeat with i = 2 to TotalCards-DeleteCount set lockscreen to false go to card i of this background set lockscreen to true put the id of this card into StartID -- GET WHATEVER FIELD YOU WANT TO FIND INFORMATION IN do "Get" && LastField repeat forever find it if the ID of this card is StartID then exit repeat add 1 to DeleteCount doMenu "Delete Card" end repeat end repeat beep beep beep answer DeleteCount && "duplicate cards found & deleted." end if end if if TrapFieldName is "Sort List" then if the visible of the message box is false then put empty into TrapFieldName exit MouseWithin end if set cursor to 2 if the commandkey is down then put the name of the target into LastField put empty into TrapFieldName hide message box "SortList" end if end if end mouseWithin on "SortList" Global LastField -- DELETE CARRIAGE RETURNS set cursor to 4 set lockscreen to true do "put the number of lines of" && LastField && "into TotalLines" repeat with i = 0 to TotalLines-1 do "get line" && TotalLines-i && "of" && LastField if it is empty then do "delete line" && TotalLines-i && "of" && LastField end repeat do "put the number of lines of" && LastField && "into TotalLines" put 0 into j put False into Flag repeat until Flag add 1 to j if j = TotalLines then exit repeat do "put line" && j && "of" && LastField && "into temp1" do "put line" && j+1 && "of" && LastField && "into temp2" if temp1 > Temp2 then do "put" && Quote & temp1 & Quote && "into line" && j+1 && "of" && LastField do "put" && Quote & temp2 & Quote && "into line" && j && "of" && LastField put 0 into j end if end repeat set lockscreen to false end "SortList" on "NumberOfCards" put 2 into it Put 5 - it into ReturnIT Set userLevel to it end "NumberOfCards" on idle set userlevel to 2 end idle